home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza - Disc 4 / Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso / cad / jul90.zip / TIP558.LSP < prev    next >
Text File  |  1990-05-17  |  627b  |  26 lines
  1. ;TIP558.LSP   Extend Crossing   (c)1990, Micheal Webster
  2. (defun C:EXTENDC(/ BE SS LS NO P1 P2)
  3.   (setvar "CMDECHO" 0)
  4.   (prompt "Select boundary edge(s)...")
  5.   (terpri)
  6.   (setq BE (ssget))(terpri)
  7.   (prompt "Select objects to extend:")
  8.     (terpri)
  9.   (setq P1 (getpoint "1st point:"))
  10.     (terpri)
  11.   (setq P2 (getcorner P1 "2nd point:"))
  12.     (terpri)
  13.   (setq SS (ssget "C" P1 P2)
  14.         LS (sslength SS)
  15.         NO -1
  16.   ) ;setq SS
  17.   (command "EXTEND" BE "")
  18.   (repeat LS
  19.   (setq NO (1+ NO))
  20.   (command (list (ssname SS NO) P2))
  21.   ) ;repeat LS
  22.   (command "")
  23.   (setvar "CMDECHO" 1)
  24.   (prin1)
  25. ) ;defun
  26.